fplot(@(x)(0.6/(0.5*0.6+0.5*0.2)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))/((1+0.6-x)*(0.6/(0.5*0.6+0.5*0.2))+(1-0.6)*((1-0.6)/(1-(0.5*0.6+0.5*0.2)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))),[0 1],':');
grid on
xlabel('The Competence of the Government E(\gamma)')
ylabel('The Probability of Learning from Other Sources \rho')
hold on
fplot(@(x)(0.6/(0.5*0.6+0.5*0.2)-(1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))/((1+0.2-x)*(0.6/(0.5*0.6+0.5*0.2))+(1-0.2)*((1-0.6)/(1-(0.5*0.6+0.5*0.2)))-((1-0.6*x)/(0.5*(1-0.6*x)+(1-0.5)*(1-0.2*x)))),[0 1],'-')
hold on
fplot(@(x)(0.8/(0.5*0.8+0.5*0.2)-(1-0.8*x)/(0.5*(1-0.8*x)+(1-0.5)*(1-0.2*x)))/((1+0.8-x)*(0.8/(0.5*0.8+0.5*0.2))+(1-0.8)*((1-0.8)/(1-(0.5*0.8+0.5*0.2)))-((1-0.8*x)/(0.5*(1-0.8*x)+(1-0.5)*(1-0.2*x)))),[0 1],':');
hold on
fplot(@(x)(0.8/(0.5*0.8+0.5*0.2)-(1-0.8*x)/(0.5*(1-0.8*x)+(1-0.5)*(1-0.2*x)))/((1+0.2-x)*(0.8/(0.5*0.8+0.5*0.2))+(1-0.2)*((1-0.8)/(1-(0.5*0.8+0.5*0.2)))-((1-0.8*x)/(0.5*(1-0.8*x)+(1-0.5)*(1-0.2*x)))),[0 1],'-')
hold on
fplot(@(x)(1/(0.5*1+0.5*0.2)-(1-1*x)/(0.5*(1-1*x)+(1-0.5)*(1-0.2*x)))/((1+1-x)*(1/(0.5*1+0.5*0.2))+(1-1)*((1-1)/(1-(0.5*1+0.5*0.2)))-((1-1*x)/(0.5*(1-1*x)+(1-0.5)*(1-0.2*x)))),[0 1],':');
hold on
fplot(@(x)(1/(0.5*1+0.5*0.2)-(1-1*x)/(0.5*(1-1*x)+(1-0.5)*(1-0.2*x)))/((1+0.2-x)*(1/(0.5*1+0.5*0.2))+(1-0.2)*((1-1)/(1-(0.5*1+0.5*0.2)))-((1-1*x)/(0.5*(1-1*x)+(1-0.5)*(1-0.2*x)))),[0 1],'-')
hold off
ylim([0 1])
set(gca,'XTick',(0:0.1:1))
h=legend('$\rho_h(\overline{\mu}=0.6)$','$\rho _l(\overline{\mu}=0.6)$','$\rho_h(\overline{\mu}=0.8)$','$\rho _l(\overline{\mu}=0.8)$','$\rho_h(\overline{\mu}=1)$','$\rho _l(\overline{\mu}=1)$')
set(h, 'Interpreter','LaTex','FontSize',5)
print('Comparative1','-dpng','-r800')